home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / Chip Mayıs 2001.iso / prog / share / 07 / ASPFusion / data1.cab / Admin_Pages / Admin / dsp_welcome.asp < prev    next >
Encoding:
Text File  |  2001-03-25  |  8.3 KB  |  218 lines

  1. <%
  2. on error resume next
  3. dim SecurityBox
  4. if (Session("Index") <> "Index") then
  5.     Response.Redirect "index.asp"
  6. else
  7.     set SecurityBox = Server.CreateObject("AdvFusionBox.FusionBox")
  8. end if
  9. %>
  10. <!--- #include file = "index.js" --->
  11. <html>
  12. <head>
  13. <title>ASPFusion Security Box Administration</title>
  14. </head>
  15. <body bgcolor="#CAE4FF">
  16. <form action="act_welcome.asp" Method="POST" NAME="welcomeform">
  17. <div align="right">
  18. <table width="70%" align="left">
  19.   <tr width="100%" align="right">
  20.     <td><a href="javascript:submit(document.welcomeform, document.welcomeform.Logout, 'Logout')" onmouseover="window.status='Logout'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Logout</font></a></td>
  21.   </tr>
  22.   <tr width="100%" align="right">
  23.     <td><a href="dsp_changepassword.asp" onmouseover="window.status='Change Password'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Change Password</font></a></td>
  24.   </tr>
  25.   <tr width="100%" align="right">
  26.     <td><a href="dsp_registration.asp" onmouseover="window.status='Registration'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Registration</font></a></td>
  27.   </tr>
  28.   <tr width="100%" align="right">
  29.     <td><a href="dsp_default.asp" onmouseover="window.status='Default'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Default</font></a></td>
  30.   </tr>
  31.   <tr width="100%" align="right">
  32.     <td><a href="dsp_websitesecurity.asp" onmouseover="window.status='Web Site Security'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Web Site Security</font></a></td>
  33.   </tr>
  34. </table>
  35.   <table cellpadding="0" cellspacing="1" width="25%">
  36.     <tr width="100%" align="right">
  37.       <td><img src="Images/aspfusion.gif"></td>
  38.     </tr>
  39.   </table>
  40. </div>
  41. <br>
  42. <table width="100%" cellpadding="0">
  43. <input type="hidden" value="" name="Logout">
  44. <input type="hidden" value="" name="Apply">
  45.   <tr>
  46.     <td><br>
  47.      <%if Request.QueryString("result") = "0" then%>
  48.         <p align="left"><font color="#FF0000" face="Arial" size="2"><b><%=Session("Error")%></b></p>
  49.      <%else%>
  50.         <p> </p>
  51.      <%end if%>
  52.     </td>
  53.   </tr>
  54.   <tr>
  55.      <td><br>
  56.            <input type="checkbox" name="SecurityBox" value="ON"
  57.          <%set Result = SecurityBox.GetRegVal("", "EnableSecurityBox", "DWORD")
  58.          if (Result.Value = 1) then%>
  59.                CHECKED
  60.          <%end if
  61.          set Result = nothing%>><font face="Arial" size="2">Use ASPFusion Security Box</font>
  62.      </td>
  63.   </tr>
  64.   <tr>
  65.      <td>
  66.        <font face="Arial" size="2" color="#9D9D9D">Check this box to make ASPFusion Security Box enable, otherwise there will be no restriccion on usage of any ASPFusion component.</font>
  67.      </td>
  68.   </tr>
  69.   <tr>
  70.      <td><br>
  71.        <b><font face="Arial" size="3" color="#000080">Select Components for ASPFusion Security Box</font></b>
  72.      </td>
  73.   </tr>
  74.   <tr>
  75.      <td>
  76.        <font face="Arial" size="2" color="#9D9D9D">Check the box against each ASPFusion component to make ASPFusion Security Box enable for that component, otherwise that component will be free to use.</font>
  77.      </td>
  78.   </tr>
  79.   <tr>
  80.      <td><br>
  81.        <input type="checkbox" name="SelectAll" value="ON" onclick="return selectall(document.welcomeform, document.welcomeform.Components);"><b><font face="Arial" size="3" color="#000080">Select All</font></b>
  82.      </td>
  83.   </tr>
  84.   <tr>
  85.        <td>
  86.                 <%set Result = SecurityBox.ReturnValues("Admin.ini", "Settings", "Installed")
  87.                   set Rst = SecurityBox.ReturnValues("Admin.ini", "Settings", "Applied")%>
  88.                       <table width="100%" cellpadding="5" cellspacing="5">
  89.                         <%dim count
  90.                           dim number
  91.                           count = 0
  92.                           number = 0
  93.                           for each Member in Result
  94.                               number = number + 1
  95.                                if (count = 0) then%>
  96.                                  <tr>
  97.                             <%end if
  98.                               count = count + 1%>
  99.                             <td valign="top"><b><font face="Arial" size="2"><%=number&"."%></font></b></td>
  100.                             <td valign="top"><INPUT Name="Components" Type="checkbox" value="<%=member.value%>"
  101.                               <%for each mem in Rst%>
  102.                                     <%if (member.value = mem.value) then%>
  103.                                          checked
  104.                                     <%end if
  105.                                       next%>><font face="Arial" size="2"><%=member.value%></font></td>
  106.                             <%if (count = 4) then%>
  107.                                  </tr>
  108.                                  <%count = 0%>
  109.                             <%end if
  110.                           next
  111.                           if (number = 0) then%>
  112.                             <INPUT type="hidden" Name="Components">
  113.                           <%end if
  114.                         set Rst = nothing
  115.                         set Result = nothing%>
  116.                       </table>
  117.       </td>
  118.     </tr>
  119. <!--- ASP Include Start Mark --->
  120. <!--- #include file = 'dsp_admin_AdvIMAP4.asp' --->
  121. <!--- #include file = 'dsp_admin_AdvSMTP.asp' --->
  122. <!--- ASP Include End Mark --->
  123.     <tr>
  124.         <td><br>
  125.             <b><font face="Arial" size="3" color="#000080">Update Status</font></b>
  126.         </td>
  127.     </tr>
  128.     <%set Result1 = SecurityBox.GetAllSectionKeys("Admin.ini", "Updates")
  129.     dim Flag
  130.     Flag = false%>
  131.       <%for each Member1 in Result1
  132.         Flag = true%>
  133.         <tr>
  134.           <td>
  135.              <A HRef="<%=member1.value%>"><FONT Face="Arial" Size="2"><b><%=member1.Key%></b></A></FONT>
  136.           </td>
  137.         </tr>
  138.      <%next
  139.      if (not Flag) then%>
  140.         <tr>
  141.          <td>
  142.             <FONT Face="Arial" Size="2" color="#9D9D9D"><%="All components are uptodate"%></FONT>
  143.          </td>
  144.         </tr>
  145.      <%end if
  146.      set Result1 = nothing%>
  147.   <tr>
  148.      <td><br>
  149.            <input type="checkbox" name="UpdateInformation" value="ON"
  150.          <%set Result = SecurityBox.GetRegVal("", "UpdateInformation", "DWORD")
  151.          if (Result.Value = 1) then%>
  152.                CHECKED
  153.          <%end if
  154.          set Result = nothing%>><font face="Arial" size="2">Update Information</font>
  155.      </td>
  156.   </tr>
  157.   <tr>
  158.      <td>
  159.        <font face="Arial" size="2" color="#9D9D9D">Check this box to get informed whenever a new version of any currently installed component is released.</font>
  160.      </td>
  161.   </tr>
  162.     <tr>
  163.         <td><br>
  164.             <b><font face="Arial" size="3" color="#000080">New Components</font></b>
  165.         </td>
  166.     </tr>
  167.     <%set Result1 = SecurityBox.GetAllSectionKeys("Admin.ini", "NewComponents")
  168.     Flag = false%>
  169.       <%for each Member1 in Result1
  170.         Flag = true%>
  171.         <tr>
  172.           <td>
  173.              <A HRef="<%=member1.value%>"><FONT Face="Helvetica" Size="2"><b><%=member1.Key%></b></A></FONT>
  174.           </td>
  175.         </tr>
  176.      <%next
  177.      if (not Flag) then%>
  178.         <tr>
  179.          <td>
  180.             <FONT Face="Arial" Size="2" color="#9D9D9D"><%="No new component is available"%></FONT>
  181.          </td>
  182.         </tr>
  183.      <%end if
  184.      set Result1 = nothing%>
  185.   <tr>
  186.      <td><br>
  187.            <input type="checkbox" name="NewInformation" value="ON"
  188.          <%set Result = SecurityBox.GetRegVal("", "NewInformation", "DWORD")
  189.          if (Result.Value = 1) then%>
  190.                CHECKED
  191.          <%end if
  192.          set Result = nothing%>><font face="Arial" size="2">New Component Information</font>
  193.      </td>
  194.   </tr>
  195.   <tr>
  196.      <td>
  197.        <font face="Arial" size="2" color="#9D9D9D">Check this box to get informed whenever a new component is released.</font>
  198.      </td>
  199.   </tr>
  200.      <%set SecurityBox = nothing%>
  201. </table>
  202. <br>
  203. <table cellpadding="0" cellspacing="1" width="25%">
  204.   <tr width="100%" align="left">
  205.     <td><a href="javascript:submit(document.welcomeform, document.welcomeform.Apply, 'Apply')" onclick="return welcome_checkit();" onmouseover="window.status='Apply'; return true" onmouseout="window.status='';return true"><img src="Images/apply.gif" border="0"></a></td>
  206.   </tr>
  207. </table>
  208. <table align="center" width="100%">
  209.   <tr>
  210.     <td align="center" valign="bottom">
  211.       <font face="Arial" color="#000000" size="1">Copyright ⌐ 2000, Advanced Communications</font>
  212.     </td>
  213.   </tr>
  214. </table>
  215. </form>
  216. </body>
  217. </html>
  218.